--macro select global selectedNum, selectedNameNum, selectedList put mouseH() into mH put mouseV() into mV if mV >= 50 and mV <75 then -- line 1 put 1 into H else if mV >= 75 and mV <100 then -- line 2 put 2 into H else if mV >= 100 and mV <125 then -- line 3 put 3 into H else if mV >= 125 and mV <150 then -- line 4 put 4 into H else if mV >= 150 and mV <174 then -- line 5 put 5 into H else if mV >= 174 and mV <200 then -- line 6 put 6 into H else if mV >= 200 and mV <225 then -- line 7 put 7 into H else if mV >= 225 and mV <250 then -- line 8 put 8 into H else if mV >= 250 and mV <275 then -- line 9 put 9 into H else if mV >= 275 and mV <300 then -- line 10 put 10 into H else if mV >= 300 and mV <325 then -- line 11 put 11 into H else if mV >= 325 and mV <350 then -- line 12 put 12 into H else if mV >= 350 and mV <375 then -- line 13 put 13 into H else if mV >= 375 and mV <400 then -- line 14 put 14 into H else if mV >= 400 and mV <425 then -- line 15 put 15 into H else put 0 into H end if if mH >= 47 and mH < 125 then -- holi 1 put 1 into V else if mH >= 125 and mH < 203 then -- holi 2 put 2 into V else if mH >= 203 and mH < 281 then -- holi 3 put 3 into V else if mH >= 281 and mH < 359 then -- holi 4 put 4 into V else if mH >= 359 and mH < 437 then -- holi 5 put 5 into V else if mH >= 437 and mH < 515 then -- holi 6 put 6 into V else if mH >= 515 and mH < 593 then -- holi 7 put 7 into V else put 0 into V end if if H = 0 or V = 0 then exit put (7 * (H - 1)) + V into selectedNameNum if selectedNameNum >= 96 then exit repeat with n = 1 to 5 put item n of selectedList into m if selectedNameNum = m then delete item n of selectedList & "," put selectedNum - 1 into selectedNum puppetSound 0 selectedFrame exit end if end repeat if selectedNum = 5 then cursor 200 puppetSound "beepNG" updateStage showMessage "mess1" cursor 128 exit end if put selectedNameNum & "," after selectedList put selectedNum + 1 into selectedNum sounds selectedFramemacro selectedFrame global selectedList repeat with n = 1 to 5 put value(item n of selectedList) into m if m >= 102 then put 0 into m put ((m - 1) / 7) + 1 into H if m = 0 then put 0 into H put m mod 7 into V if V = 0 then put 7 into V if m = 0 then put 0 into H put 0 into V end if selectedFrameOnOff n, H, V end repeat
--macro selectedFrameOnOff spNum, frameH, frameV put (frameH -1)* 25 + 50 into tate if frameH = 0 then put -100 into tate put (frameV -1)* 78 + 47 into yoko if frameV = 0 then put -100 into yoko put spNum + 9 into spriteNum puppetSprite spriteNum, TRUE set the type of sprite spriteNum = 16 set the ink of sprite spriteNum = 0 set the castNum of sprite spriteNum = the number of cast "frame" set the locH of sprite spriteNum = yoko set the locV of sprite spriteNum = tate updateStagemacro showMessage messName puppetSprite 16, TRUE set the type of sprite 16 = 16 set the ink of sprite 16 = 0 set the castNum of sprite 16 = the number of cast messName set the locH of sprite 16 = 320 set the locV of sprite 16 = 240 updateStage put ticks() + (2 * 60) into waitTime repeat while ticks() < waitTime nothing end repeat puppetSprite 16, FALSE updateStagemacro sounds put "AEGI-" & random(8) into soundName puppetSound soundName
Script Channel Commands
--------------------
go to "main"if rollOver(20) then cursor 132else cursor 128end ifgo to the framebeepplay donecursor 200initpuppetPalette "PL base"cursor 200cursor 128go to the frame
vwci
----
1025: □PL base
1026: □Personal BG MASTER.P8M
1030: □Personal help.P8M
1031: on mouseDown selectend mouseDown□selectButton
1032: on mouseUp cursor 129 go to marker(1)end mouseUp1033: on mouseDown if button() then goNext("step")end mouseDown□step,up
1034: on mouseDown if button() then goNext("auto")end mouseDown□auto,up
1035: on mouseDown if button() then goNext("menu")end mouseDown□menu,up
1036: on mouseDown if button() then goNext("quit")end mouseDown□quit,up
1037: on mouseDown if button() then goNext("help")end mouseDown□help,up
